home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / doc / examples / dumpRsrc.tcl < prev    next >
Text File  |  1995-06-29  |  655b  |  37 lines
  1. #! moat
  2. #
  3.  
  4. xtAppInitialize
  5.  
  6. set list {}
  7.  
  8. foreach cmd [lsort [info commands]] {
  9.     if [string match xm* $cmd] {
  10.         puts stderr "$cmd " nonewline
  11.         $cmd .top
  12.         foreach rsrc [lsort [.top resources]] {
  13.             set name [lindex $rsrc 0]
  14.             set type [lindex $rsrc 3]
  15.             set valu [lindex $rsrc 4]
  16.             if [expr {"$valu" == ""}] {set valu "none"}
  17.  
  18.             if [expr [lsearch $list $name]<0] {lappend list $name}
  19.             if [info exist $name] then {} else {set $name {}}
  20.             lappend $name $cmd
  21.         }
  22.         .top destroyWidget
  23.     }
  24. }
  25.  
  26. puts stderr ""
  27.  
  28. foreach rsrc [lsort $list] {
  29.     set a [lsort [set $rsrc]]
  30.     puts "$rsrc:"
  31.     foreach cmd $a {
  32.         puts stdout "$cmd\t" nonewline
  33.     }
  34.     puts ""
  35.     puts ""
  36. }
  37.